ShortToString Function

private function ShortToString(number, fmt) result(string)

Converts a short integer number in a string Arguments: number number to be converted Result: string

Arguments

Type IntentOptional Attributes Name
integer(kind=short), intent(in) :: number
character(len=*), intent(in), optional :: fmt

Return Value character(len=100)


Variables

Type Visibility Attributes Name Initial
integer(kind=short), public :: ios

Source Code

FUNCTION ShortToString &
  ( number, fmt )       &
RESULT (string)

IMPLICIT NONE

! Function arguments
! Scalar arguments with intent(in):
INTEGER (KIND = short), INTENT (IN)  :: number
CHARACTER (LEN = *), INTENT (IN), OPTIONAL :: fmt

! Local scalars:
CHARACTER(LEN = 100)    :: string
INTEGER (KIND = short)  :: ios 

!------------end of declaration------------------------------------------------

IF (PRESENT (fmt)) THEN
  WRITE(string, fmt) number
ELSE
  WRITE(string,*) number
END IF
string = ADJUSTL (string)
END FUNCTION ShortToString